home *** CD-ROM | disk | FTP | other *** search
/ Sound Fx / Sound Fx.iso / Software / UNZIPED / DWSTK / MAKEPAS.BAT < prev    next >
Encoding:
DOS Batch File  |  1995-12-11  |  2.5 KB  |  135 lines
  1. echo off
  2.  
  3. if not "%1" == "" goto MAKE
  4.  
  5. cls
  6. echo  
  7. echo MAKEPAS.BAT
  8. echo ===========
  9. echo  
  10. echo This batch file shows how to make the sample
  11. echo programs for some PASCAL compilers.
  12. echo  
  13. echo Your compiler must be properly configured.
  14. echo  
  15. echo All samples are made with debug information.
  16. echo  
  17. echo Usage: "makepas <compiler#>"
  18. echo  
  19. echo   1) Borland Pascal 7
  20. echo   2) Borland Pascal 7 (P-Mode)
  21. echo   3) Turbo Pascal 6
  22. echo   4) Turbo Pascal 7
  23. echo  
  24. echo  
  25. echo NOTE: Some samples are not included with the Shareware distribution.
  26. echo  
  27.  
  28. goto END
  29.  
  30.  
  31. :MAKE
  32.  
  33. if exist mem.tpu    del mem.tpu     > NUL
  34. if exist err.tpu    del err.tpu     > NUL
  35.  
  36. if exist playdwd.exe    del playdwd.exe  > NUL
  37. if exist playdwm.exe    del playdwm.exe  > NUL
  38. if exist findsb.exe     del findsb.exe     > NUL
  39. if exist stkrun.exe     del stkrun.exe     > NUL
  40.  
  41.  
  42.  
  43. cls
  44.  
  45. goto %1
  46.  
  47. :1
  48. echo -----------------------------------------------------
  49. echo 4) Borland Pascal 7
  50. echo -----------------------------------------------------
  51.  
  52. echo on
  53.  
  54. copy dws7.tpp dws.tpp
  55.  
  56. bpc -V err.pas
  57. bpc -V mem.pas
  58. if exist playdwd.pas bpc -V playdwd.pas
  59. if exist playdwm.pas bpc -V playdwm.pas
  60. if exist findsb.pas  bpc -V findsb.pas
  61. if exist stkrun.pas  bpc -V stkrun.pas
  62.  
  63. @echo off
  64.  
  65. goto END
  66.  
  67.  
  68. :2
  69. echo -----------------------------------------------------
  70. echo 4) Borland Pascal 7 (P-Mode)
  71. echo -----------------------------------------------------
  72.  
  73. @echo on
  74.  
  75. copy dws7.tpp dws.tpp
  76.  
  77. bpc -V -CP err.pas
  78. bpc -V -CP mem.pas
  79. if exist playdwd.pas bpc -V -CP playdwd.pas
  80. if exist playdwm.pas bpc -V -CP playdwm.pas
  81. if exist findsb.pas  bpc -V -CP findsb.pas
  82. if exist stkrun.pas  bpc -V    stkrun.pas
  83.  
  84. @echo off
  85.  
  86. goto END
  87.  
  88.  
  89.  
  90. :3
  91. echo -----------------------------------------------------
  92. echo Turbo Pascal 6
  93. echo -----------------------------------------------------
  94.  
  95. @echo on
  96.  
  97. copy dws6.tpu dws.tpu
  98.  
  99. tpc -V err.pas
  100. tpc -V mem.pas
  101. if exist playdwd.pas tpc -V playdwd.pas
  102. if exist playdwm.pas tpc -V playdwm.pas
  103. if exist findsb.pas  tpc -V findsb.pas
  104. if exist stkrun.pas  tpc -V stkrun.pas
  105.  
  106. @echo off
  107.  
  108. goto END
  109.  
  110.  
  111.  
  112. :4
  113. echo -----------------------------------------------------
  114. echo Turbo Pascal 7
  115. echo -----------------------------------------------------
  116.  
  117. @echo on
  118.  
  119. copy dws7.tpu dws.tpu
  120.  
  121. tpc -V err.pas
  122. tpc -V mem.pas
  123. if exist playdwd.pas tpc -V playdwd.pas
  124. if exist playdwm.pas tpc -V playdwm.pas
  125. if exist findsb.pas  tpc -V findsb.pas
  126. if exist stkrun.pas  tpc -V stkrun.pas
  127.  
  128. @echo off
  129.  
  130. goto END
  131.  
  132.  
  133.  
  134. :END
  135.